Chip 2001 December/Chip_2001-12_cd1.bin/zkuste/tuning/download/xteq/setup.exe/{app}/plugins/XQ Yahoo Messenger 3.xpl

Text File | 2001-01-04 | 6KB | 170 lines

"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="8"
"COUNT"="3"
"UIPATH"="Internet\Instant Messaging\Yahoo Messenger"
"NAME"="Custom Status Messages"
"LANGUAGE"="VBScript"
"TEXT 1"="New status..."
"TEXT 2"="Edit status..."
"TEXT 3"="Delete status"
"DESCRIPTION 1"="If you're bored with the status messages Yahoo! gives you by default (Be Right Back, Busy), you can create your own."
"DESCRIPTION 2"="To create a new status, click 'New Status', type in a new message to describe your status (for example Drunk, Insane, Can't Be Bothered), and click OK. Then on the next screen type "0" (without the quotes) if you want this to be an 'active' status and "1" (without the quotes) if you want this to be a 'busy' status. Then click OK."
"DESCRIPTION 3"="You can also edit or delete entries you've already made."
"DESCRIPTION 4"="Notes: You are limited to 5 custom status messages. If you have an older version of Yahoo! Messenger, the settings will affect all users; in more recent versions the settings will only affect the current user."
"DESCRIPTION 5"="Yahoo! Messenger may be obtained at http://messenger.yahoo.com/."
"COMMENT 1"="Thanks to CptSiskoX ([e-mail]), AXCEL216, ([e-mail]) and Jesse L Zufall ([e-mail]) for this tip."
"VERSION"="1.11"
"AUTHOR"="Neil R. Turner ([e-mail]) for Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
"CONTACTURL"="http://www.128moorlane.freeserve.co.uk/"

'Declaration of some constants
a="HKCU\Software\Yahoo\Pager\"

'Called when the Plugin is started
SUB Plugin_Initialize
 k=RegPathExists(a)
 if k=false then
  Call Disable()
 else
  d=RegPathExists(a & "Profiles\")
  if d=true then
   b=RegValueExists(a & "Yahoo! User ID")
   if b=true then
    c=RegReadValue(a & "Yahoo! User ID")
    g=a & "Profiles\" & c & "\"
   end if
  else
   g=a
  end if
  Call ReadMsg(1,g)
  Call ReadMsg(2,g)
  Call ReadMsg(3,g)
  Call ReadMsg(4,g)
  Call ReadMsg(5,g)
 end if
END SUB

'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB

'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 d=RegPathExists(a & "Profiles\")
 if d=true then
  b=RegValueExists(a & "Yahoo! User ID")
  if b=true then
   c=RegReadValue(a & "Yahoo! User ID")
   g=a & "Profiles\" & c & "\"
  end if
 else
  g=a
 end if
 if ElementIndex=1 then ' New entry
  if RegValueExists(g & "Custom Msgs\1")=true AND RegValueExists(g & "Custom Msgs\2")=true AND RegValueExists(g & "Custom Msgs\3")=true AND RegValueExists(g & "Custom Msgs\4")=true AND RegValueExists(g & "Custom Msgs\5")=true then
   Call MsgError("You cannot have more than 5 entries!")
  else
   ' Firstly, we need to find out which value is free (either 1, 2, 3, 4 or 5)
   if RegValueExists(g & "Custom Msgs\1")=false then
    ' We can now use the first value
    Call WriteMsg(1,g)
   else
    if RegValueExists(g & "Custom Msgs\2")=false then
     ' OK, can we use the second value?
     Call WriteMsg(2,g)
    else
     if RegValueExists(g & "Custom Msgs\3")=false then
      ' Well what about the third value?
      Call WriteMsg(3,g)
     else
      if RegValueExists(g & "Custom Msgs\4")=false then
       ' Surely the fourth value?
       Call WriteMsg(4,g)
      else
       if RegValueExists(g & "Custom Msgs\5")=false then
        ' No! Not the fifth value! AAAAAHHHH!
        Call WriteMsg(5,g)
       else
        Call MsgError("You cannot have more than 5 entries!")
       end if ' 1 ..
      end if ' 2 ..
     end if ' 3 ..
    end if ' 4 ..
   end if ' 5 ..
  end if '6 !!! Oh well, it works...
 else
  if ElementSubIndex>0 then
   if ElementIndex=2 then ' Edit status
    Call WriteMsg(ElementSubIndex,g)
   end if
   if ElementIndex=3 then ' Delete Status
    m=RegValueExists(g & "Custom Msgs\" & ElementSubIndex)
    if m=true then
     Call RegDeleteValue(g & "Custom Msgs\" & ElementSubIndex)
    end if
    m=RegValueExists(g & "Custom Msgs\" & ElementSubIndex & "_DND")
    if m=true then
     Call RegDeleteValue(g & "Custom Msgs\" & ElementSubIndex & "_DND")
    end if
    Call SetUIElement(ElementSubIndex,"")
   end if
  else
   Call MsgError("Please select an item first.")
  end if
 end if
END SUB

'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB

'User defined SUB's
SUB WriteMsg(MsgID,UserID)
 d=RegPathExists(a & "Profiles\")
 if d=true then
  b=RegValueExists(a & "Yahoo! User ID")
  if b=true then
   c=RegReadValue(a & "Yahoo! User ID")
   g=a & "Profiles\" & c & "\"
  end if
 else
  g=a
 end if
 l=RegReadValue(g & "Custom Msgs\" & MsgID)
 y=InputWindow("1. Type a description of this status (for example Drunk, Insane, Can't Be Bothered) below",l,1)
 if IsEmpty(y)=false then
  Call RegWriteValue(g & "Custom Msgs\" & MsgID,y,1)
  j=InputWindow("2. Type '0' if you want this to be an 'active' status, type '1' if you want this to be a 'busy' status.","0",1)
  if IsEmpty(j)=false then
   if j="1" then
    Call RegWriteValue(g & "Custom Msgs\" & MsgID & "_DND",1,2)
   else
    Call RegWriteValue(g & "Custom Msgs\" & MsgID & "_DND",0,2)
   end if
   j=RegReadValue(g & "Custom Msgs\" & MsgID & "_DND")
   if j=1 then
    x=" (Busy)"
   else
    x=" (Active)"
   end if
   Call SetUIElement(MsgID,y & x)
  end if
 end if

END SUB

SUB ReadMsg(MsgID,UserID)
 f=RegValueExists(UserID & "Custom Msgs\" & MsgID)
 if f=true then
  o=RegReadValue(UserID & "Custom Msgs\" & MsgID)
  p=RegReadValue(UserID & "Custom Msgs\" & MsgID & "_DND")
  if p=0 then
   q="(Active)"
  else
   q="(Busy)"
  end if
  Call SetUIElement(MsgID,o & " " & q)
 end if
END SUB